home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_6625.txt < prev    next >
Text File  |  1991-03-02  |  3KB  |  155 lines
  1. -- card: 6625 from stack: in
  2. -- bmap block id: 7097
  3. -- flags: 4000
  4. -- background id: 2238
  5. -- name: Part of Area Betw. 2 Circles
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Arc AB
  11.   get (pi*card field "Large Radius"/180)*card field "Degrees"
  12.   put it into card field "Arc AB"
  13.  
  14.   --Calculate Arc DE
  15.   get (pi*card field "Small Radius"/180)*card field "Degrees"
  16.   put it into card field "Arc DE"
  17.  
  18.   --Calculate Segment Perimeter
  19.   get card field "Arc AB"+card field "Arc DE" +(2*(card field "Large Radius"-card field "Small Radius"))
  20.   put it into card field "Segment Perimeter"
  21.  
  22.   --Calculate Segment Area
  23.   --k figured first
  24.   get (card field "Arc AB"+card field "Arc DE")/2
  25.   put it into memk
  26.   get memk*(card field "Large Radius"-card field "Small Radius")
  27.   put it into card field "Segment Area"
  28. end mouseUp
  29.  
  30.  
  31. -- part 1 (field)
  32. -- low flags: 00
  33. -- high flags: 0002
  34. -- rect: left=312 top=98 right=116 bottom=459
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Small Radius
  43.  
  44.  
  45. -- part 2 (field)
  46. -- low flags: 00
  47. -- high flags: 0002
  48. -- rect: left=312 top=119 right=137 bottom=459
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 3
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Large Radius
  57.  
  58.  
  59. -- part 3 (field)
  60. -- low flags: 00
  61. -- high flags: 0002
  62. -- rect: left=312 top=140 right=158 bottom=459
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 3
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Degrees
  71.  
  72.  
  73. -- part 4 (field)
  74. -- low flags: 01
  75. -- high flags: 0004
  76. -- rect: left=296 top=185 right=205 bottom=443
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Arc AB
  85.  
  86.  
  87. -- part 5 (field)
  88. -- low flags: 01
  89. -- high flags: 0004
  90. -- rect: left=296 top=208 right=228 bottom=443
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Arc DE
  99.  
  100.  
  101. -- part 6 (field)
  102. -- low flags: 01
  103. -- high flags: 0004
  104. -- rect: left=296 top=240 right=260 bottom=443
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Segment Perimeter
  113.  
  114.  
  115. -- part 7 (field)
  116. -- low flags: 01
  117. -- high flags: 0004
  118. -- rect: left=296 top=275 right=295 bottom=443
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Segment Area
  127.  
  128.  
  129. -- part contents for card part 2
  130. ----- text -----
  131. .500000
  132.  
  133. -- part contents for card part 1
  134. ----- text -----
  135. .250000
  136.  
  137. -- part contents for card part 3
  138. ----- text -----
  139. 90.000000
  140.  
  141. -- part contents for card part 4
  142. ----- text -----
  143. 0.785398
  144.  
  145. -- part contents for card part 5
  146. ----- text -----
  147. 0.392699
  148.  
  149. -- part contents for card part 6
  150. ----- text -----
  151. 1.678097
  152.  
  153. -- part contents for card part 7
  154. ----- text -----
  155. 0.147262